home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 B / CHIP_HITWARE_7B.iso / Edukacja / Guitar Tuner / Wintun16.dxr / 00025_checkTune5.ls < prev    next >
Encoding:
Text File  |  1997-04-24  |  329 b   |  16 lines
  1. on checkTune5
  2.   global gTuning
  3.   puppetSound(0)
  4.   if field "tuning selection" = "standard" then
  5.     puppetSound("A")
  6.   else
  7.     if field "tuning selection" = "half step down" then
  8.       puppetSound("A flat")
  9.     else
  10.       if field "tuning selection" = "Drop D" then
  11.         puppetSound("A")
  12.       end if
  13.     end if
  14.   end if
  15. end
  16.